home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 5 / Amiga Plus Sonderheft 1996 #5.iso / programme / imagedesk304 / import_ps / import_ps3.idesk < prev   
Text File  |  1996-05-02  |  2KB  |  60 lines
  1. /* --------------------- ARexx-Script zur Uebergabe eines Bildes an PS3 ------------------- */
  2. /* ------------------------------------- Version 1.0 -------------------------------------- */
  3. /* ------------------- von Volkmar Funke -- EMail: Volkmar_Funke@BN.maus.de ----------------*/
  4. /* --- Dieses ARexx-Script importiert ein ausgewaehltes Bild von ImageDesk in PageStream ---*/
  5. /* ----- mit Beruecksichtigung, das PageStream kein JPEG unterstuetzt (Zusatzmodul) --------*/
  6.  
  7.  
  8. OPTIONS RESULTS
  9. PARSE ARG iname itype ipos
  10.  
  11.  
  12. /* Sicherstellung das ARexx supportet ist */
  13. IF ~SHOW('L','rexxsupport.library') THEN
  14.         CALL ADDLIB('rexxsupport.library',0,-30)
  15. IF ~SHOW('L','softlogik:libs/slarexxsupport.library') THEN
  16.         CALL ADDLIB('softlogik:libs/slarexxsupport.library', 0, -30)
  17.  
  18.  
  19. if ~show(P, 'PAGESTREAM') then do /* Fehlermeldung falls PageStream nicht gestartet ist*/
  20.         ADDRESS 'IDESK_REXXPORT'
  21.         IDREQUEST "OK" '" PageStream nicht gestartet "'
  22.         EXIT
  23. end
  24.  
  25. if '"'||itype||'"'=='" JPG"' then do    /* Abfrage ob JPEG-Format */
  26.         IDREQUEST "OK" '" PageStream unterstuetzt kein JPEG-Format! "'
  27.         EXIT
  28. end
  29.  
  30. ADDRESS 'PAGESTREAM'
  31.  
  32. /* Uebergabe der Grafik, falls kein Dokument geoeffnet Fehlermeldung */
  33. 'refresh wait'
  34. placegraphic FILE '"'||iname||'"'
  35. if rc~=0 then do
  36.  
  37.     ADDRESS 'IDESK_REXXPORT'
  38.     IDREQUEST "OK" '" Kein Dokument in PageStream offen "'
  39.     signal cancel
  40. end
  41.  
  42. /* Typfestlegung und Anfrage ob ausgelgert werden soll */
  43. 'getobject type objtype'
  44. objnum=result
  45. trace ?i
  46.  
  47. 'refresh continue'
  48.  
  49. EXIT
  50.  
  51.  
  52. CANCEL:
  53.  
  54. ADDRESS 'PAGESTREAM'   /* Muss durchgefuehrt werden, sonst keine Darstellung wenn neues */
  55. 'refresh continue'     /* Dokument geoeffnet wird */
  56.   EXIT
  57.  
  58.  
  59.  
  60.